Option Explicit
Sub A_Sample065()
    Dim myWd As Window
    Set myWd = ActiveWindow.Parent.NewWindow
    'Set myWd = ActiveWorkbook.NewWindow
    MsgBox myWd.Caption
    'myWd.Close			'
    Set myWd = Nothing	'
End Sub
